﻿Public Class Urgencia

    Public Sub New(nivell As EnumUrgencia)
        _Id = nivell
    End Sub

    Private _Id As EnumUrgencia
    Public ReadOnly Property Id As EnumUrgencia
        Get
            Return _Id
        End Get
    End Property

    Public ReadOnly Property Nom As String
        Get
            Select Case Id
                Case EnumUrgencia.Normal
                    Return StringLibrary.Normal
                Case EnumUrgencia.Urgent
                    Return StringLibrary.Urgent
                Case EnumUrgencia.MoltUrgent
                    Return StringLibrary.MoltUrgent
                Case Else
                    Return ""
            End Select
        End Get
    End Property

    Public ReadOnly Property Icon() As Media.Imaging.BitmapImage
        Get
            Select Case Id
                Case EnumUrgencia.Normal
                    Return New Media.Imaging.BitmapImage(New Uri("/LullabyFullDeCaixa;component/Imatges/GreenDot.png", UriKind.Relative))
                Case EnumUrgencia.Urgent
                    Return New Media.Imaging.BitmapImage(New Uri("/LullabyFullDeCaixa;component/Imatges/YellowDot.png", UriKind.Relative))
                Case EnumUrgencia.MoltUrgent
                    Return New Media.Imaging.BitmapImage(New Uri("/LullabyFullDeCaixa;component/Imatges/OrangeDot.png", UriKind.Relative))
                Case Else
                    Return Nothing
            End Select
        End Get
    End Property
End Class
